home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TR-XTRB2.ZIP / XTURBO.PPS < prev   
Text File  |  1997-01-01  |  5KB  |  144 lines
  1. ;------------------------------------------------------------------------------
  2. ;Sorry i dont know how to do released source codes they call algarithms.
  3. ;fuck all that, heres the code i wrote, it compiles and runs so what else
  4. ;do you need!
  5. ;------------------------------------------------------------------------------
  6.  
  7.     String   STRING001
  8.     String   STRING002
  9.     String   STRING003
  10.     String   STRING004
  11.     string    string005
  12.     string    string006
  13.     string    string007
  14.     string    string008
  15.     string    string009
  16.     integer    integer001
  17.     integer    integer002
  18.     integer    integer003
  19.     integer    integer004
  20.     integer    integer005
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     if (!Exist(ppepath() + "xturbo.pcb")) then
  25.         fcreate 4, ppepath() + "xturbo.pcb", 2, 0
  26.         fputln 4, "@X08---------------@X07  @X08---@X07 @X08--@X07                                                        "
  27.         fputln 4, " @X0BT@X03urbo@X0B L@X03ogon@X07                                                                   "
  28.         fputln 4, "@X08-----------------@X07 @X08------@X07                                                       "
  29.         fputln 4, " "                                                                              
  30.         fputln 4, "  @X0Fa."
  31.         fputln 4, "  @X0Fb."
  32.         fputln 4, "                                                                               "
  33.         fputln 4, "@X08------------ --------  ------@X07                                                  "
  34.         fputln 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07                                                                "
  35.         fputln 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07                                                 "
  36.         fputln 4, ""
  37.         fclose 4
  38.         if (exist(ppepath() + "xturbo.cfg")) delete ppepath() + "xturbo.cfg"
  39.         fcreate 3, ppepath() + "xturbo.cfg", 2, 0
  40.         fputln 3, "30"
  41.         fputln 3, "6 5"
  42.         fputln 3, "6 6"
  43.         fputln 3, "YES"
  44.         fputln 3, "@X3B"
  45.         fputln 3, "@X08"
  46.         fputln 3, ""
  47.         fputln 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------"
  48.         fputln 3, " Line One  : The minimum security level to run the program. Users with access"
  49.         fputln 3, "             levels higher than this number will go straight into displaying"
  50.         fputln 3, "             the file Xpert.TXT."
  51.         fputln 3, " Line Two  : The x/y co-ordinates of the `no turbo login'"
  52.         fputln 3, " Line Three: The x/y co-ordinates of the `yes turbo login'"
  53.         fputln 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on."
  54.         fputln 3, "             If he/she does, it will go straight into displaying the file"
  55.         fputln 3, "             Xpert.TXT"
  56.         fputln 3, " Line Five : The PCB colour code for the selected litebar"
  57.         fputln 3, " Line Six  : The PCB colour code for the non-selected litebar"
  58.         fputln 3, ""
  59.         fclose 3
  60.     endif
  61.     if (!exist(ppepath() + "xturbo.cfg")) then
  62.         log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1
  63.         end
  64.     endif
  65.     GetUser
  66.     STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1)
  67.     integer001 = string003
  68. ;   If (U_Sec >= integer001) Goto LABEL006
  69.     string005 = readline(ppepath() + "xturbo.cfg", 2)
  70.     tokenize string005
  71.     integer002 = gettoken()
  72.     integer003 = gettoken()
  73.     string006 = readline(ppepath() + "xturbo.cfg", 3)
  74.     tokenize string006
  75.     integer004 = gettoken()
  76.     integer005 = gettoken()
  77.     string007 = readline(ppepath() + "xturbo.cfg", 4)
  78.     if ((Upper(string007) == "YES")) then
  79.         getuser
  80.         if ((U_expert)) goto label006
  81.     endif
  82.     string008 = readline(ppepath() + "xturbo.cfg", 5)
  83.     string009 = readline(ppepath() + "xturbo.cfg", 6)
  84.     STRING001 = " No turbo login!      "
  85.     STRING002 = " Yes turbo login!     "
  86.     print "@CLS@@POFF@"
  87.     DispFile PPEPath() + "xturbo.PCB", 1
  88.     :LABEL001
  89.     AnsiPos integer002, integer003
  90.     Print upper(string008) + STRING001
  91.     AnsiPos integer004, integer005
  92.     Print upper(string009) + STRING002
  93.     Color 0
  94.     Print " "
  95.     Backup 1
  96.     :LABEL002
  97.     STRING004 = ""
  98.     while ((string004 == "")) string004 = inkey()
  99.     If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003
  100.     If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003
  101.     If (STRING004 == Chr(13)) Goto LABEL005
  102.     If (Upper(STRING004) == "A") Goto LABEL007
  103.     If (Upper(STRING004) == "B") Goto LABEL008
  104.     Goto LABEL002
  105.     :LABEL003
  106.     AnsiPos integer002, integer003
  107.     Print string009 + STRING001
  108.     AnsiPos integer004, integer005
  109.     Print string008 + STRING002
  110.     Color 0
  111.     Print " "
  112.     Backup 1
  113.     :LABEL004
  114.     STRING004 = ""
  115.     while ((string004 == "")) string004 = inkey()
  116.     if (((Upper(STRING004) == "DOWN") || (STRING004 == "2"))) Goto LABEL001
  117.     If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001
  118.     If (STRING004 == Chr(13)) Goto LABEL006
  119.     If (Upper(STRING004) == "A") Goto LABEL005
  120.     If (Upper(STRING004) == "B") Goto LABEL006
  121.     Goto LABEL004
  122.     :LABEL005
  123.     print "@PON@@CLS@"
  124.     if (exist(ppepath() + "logon.txt")) then
  125.         DispFile PPEPath() + "LOGON.TXT", 1
  126.     endif
  127.     End
  128.     :LABEL006
  129.     print "@PON@@CLS@"
  130.     if (exist(ppepath() + "xpert.txt")) then
  131.         Dispfile ppepath() + "XPERT.TXT", 1
  132.     endif
  133.     End
  134.     :LABEL007
  135.     AnsiPos 15, 9
  136.     Print "@X0Fa"
  137.     delay 5
  138.     Goto LABEL005
  139.     :LABEL008
  140.     AnsiPos 15, 9
  141.     Print "@X0Fb"
  142.     delay 5
  143.     Goto LABEL006
  144.